home *** CD-ROM | disk | FTP | other *** search
-
- #(
- #!
- (lisp::in-package 'user::lisp)
- #!
- (lisp::export '(lisp::isqrt lisp::abs lisp::phase lisp::signum lisp::cis lisp::asin lisp::acos lisp::sinh lisp::cosh lisp::tanh lisp::asinh lisp::acosh lisp::atanh lisp::rational lisp::rationalize lisp::ffloor lisp::fround lisp::ftruncate lisp::fceiling lisp::lognand lisp::lognor lisp::logandc1 lisp::logandc2 lisp::logorc1 lisp::logorc2 lisp::lognot lisp::logtest lisp::byte lisp::byte-size lisp::byte-position lisp::ldb lisp::ldb-test lisp::mask-field lisp::dpb lisp::deposit-field))
- #!
- (lisp::in-package 'lisp::system)
- (lisp::optimize (lisp::safety 2) (lisp::space 3))
- system::imag-one
- #C(0.0S0 1.0S0)
- 0
- "~S is not a non-negative integer."
- 1
- 2
- "#.imag-one"
- 1.0S0
- 2.0S0
- -1.0S0
- "The argument, ~s, is a logarithmic singularity.~
- ~%Don't be foolish, GLS."
- lisp::rational
- lisp::short-float
- 4.768372S-7
- lisp::long-float
- 1.110223024625157E-16
- "~S is neither rational nor float."
- 14
- 8
- 4
- 13
- 11
- -1
- lisp::proclaim
- system::*make-constant
- lisp::isqrt
- lisp::abs
- lisp::phase
- lisp::signum
- lisp::cis
- lisp::asin
- lisp::acos
- lisp::sinh
- lisp::cosh
- lisp::tanh
- lisp::asinh
- lisp::acosh
- lisp::atanh
- lisp::rationalize
- system::rationalize-float
- lisp::ffloor
- lisp::fceiling
- lisp::ftruncate
- lisp::fround
- lisp::lognand
- lisp::lognor
- lisp::logandc1
- lisp::logandc2
- lisp::logorc1
- lisp::logorc2
- lisp::lognot
- lisp::logtest
- lisp::byte
- lisp::byte-size
- lisp::byte-position
- lisp::ldb
- lisp::ldb-test
- lisp::mask-field
- lisp::dpb
- lisp::deposit-field
- lisp::typep
- )
-